CD BIT 75/CD BIT 75.iso/Software/LogOut/disk1/_SETUP.1/GCondom7.exe/0/RCDATA/TFRMLIQUIDARAVISOS/TFRMLIQUIDARAVISOS.txt

Text File | 2004-10-21 | 16KB | 652 lines

object frmLiquidarAvisos: TfrmLiquidarAvisos
  Left = 413
  Top = 199
  BorderStyle = bsNone
  Caption = 'frmLiquidarAvisos'
  ClientHeight = 468
  ClientWidth = 747
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 747
    Height = 468
    Align = alClient
    BevelWidth = 3
    BorderWidth = 1
    TabOrder = 0
    object Label6: TLabel
      Left = 16
      Top = 432
      Width = 217
      Height = 22
      Caption = 'Liquidar Avisos de D�bito'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 30
      Top = 13
      Width = 680
      Height = 41
      Alignment = taCenter
      AutoSize = False
      Caption =
        'Seleccione o(s) Aviso(s) de D�bito que pretende liquidar. Se pre' +
        'tender visualizar cada Recibo antes da sua grava��o, marque a ca' +
        'ixa "Visualizar antes de Gravar".'#13#10'Nota: Tem sempre hip�tese de ' +
        'alterar mais tarde cada Recibo gravado.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object SpeedButton1: TSpeedButton
      Left = 185
      Top = 231
      Width = 75
      Height = 22
      Caption = 'Adicionar'
      Flat = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 485
      Top = 231
      Width = 80
      Height = 22
      Caption = 'Ret. Todas'
      Flat = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 285
      Top = 231
      Width = 80
      Height = 22
      Caption = 'Adic. Todas'
      Flat = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 385
      Top = 231
      Width = 75
      Height = 22
      Caption = 'Retirar'
      Flat = True
      OnClick = SpeedButton4Click
    end
    object Label2: TLabel
      Left = 18
      Top = 242
      Width = 58
      Height = 13
      Caption = 'A liquidar:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 18
      Top = 45
      Width = 73
      Height = 13
      Caption = 'Por Liquidar:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object RxLabel1: TRxLabel
      Left = 140
      Top = 43
      Width = 10
      Height = 17
      Alignment = taRightJustify
      Caption = '0'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object RxLabel2: TRxLabel
      Left = 140
      Top = 240
      Width = 10
      Height = 17
      Alignment = taRightJustify
      Caption = '0'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object BitBtn1: TBitBtn
      Left = 563
      Top = 432
      Width = 75
      Height = 25
      Caption = '&OK'
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 653
      Top = 432
      Width = 75
      Height = 25
      Caption = '&Cancelar'
      TabOrder = 1
      Kind = bkCancel
    end
    object RxDBGrid3: TRxDBGrid
      Left = 15
      Top = 58
      Width = 718
      Height = 170
      Hint = 'Clique duas vezes '#13#10'  para Adicionar'
      Color = 12572623
      Ctl3D = True
      DataSource = DataSource1
      FixedColor = 13551795
      Options = [dgTitles, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete]
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = SpeedButton1Click
      Columns = <
        item
          Expanded = False
          FieldName = 'Data'
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'N'
          Title.Caption = 'N�'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Nome'
          Width = 164
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Referente'
          Width = 321
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Valor1'
          Width = 80
          Visible = True
        end>
    end
    object RxDBGrid1: TRxDBGrid
      Left = 15
      Top = 256
      Width = 718
      Height = 170
      Hint = 'Clique duas vezes'#13#10'    para Retirar'
      Color = 12572623
      Ctl3D = True
      DataSource = DataSource2
      FixedColor = 13551795
      Options = [dgTitles, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete]
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = SpeedButton4Click
      Columns = <
        item
          Expanded = False
          FieldName = 'Data'
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'N'
          Title.Caption = 'N�'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Nome'
          Width = 164
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Referente'
          Width = 321
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Valor1'
          Width = 80
          Visible = True
        end>
    end
    object CheckBox1: TCheckBox
      Left = 337
      Top = 438
      Width = 144
      Height = 17
      Caption = 'Visualizar antes de Gravar'
      TabOrder = 4
    end
    object CheckBox2: TCheckBox
      Left = 490
      Top = 438
      Width = 57
      Height = 17
      Caption = 'Imprimir'
      TabOrder = 5
    end
    object ComboBox5: TComboBox
      Left = 624
      Top = 32
      Width = 97
      Height = 21
      Hint = 'Muda a ordena��o da lista'
      Style = csDropDownList
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      Visible = False
      OnChange = ComboBox5Change
      Items.Strings = (
        'Data'
        'N�'
        'Nome'
        'Referente')
    end
  end
  object DataSource1: TDataSource
    DataSet = MemoryTable1
    Left = 48
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = MemoryTable2
    Left = 128
    Top = 8
  end
  object MemoryTable1: TMemoryTable
    Left = 16
    Top = 8
    object MemoryTable1ID: TIntegerField
      FieldName = 'ID'
    end
    object MemoryTable1N: TIntegerField
      FieldName = 'N'
    end
    object MemoryTable1Data: TDateTimeField
      FieldName = 'Data'
    end
    object MemoryTable1Nome: TStringField
      FieldName = 'Nome'
      Size = 50
    end
    object MemoryTable1Referente: TStringField
      FieldName = 'Referente'
      Size = 50
    end
    object MemoryTable1Valor1: TFloatField
      FieldName = 'Valor1'
    end
    object MemoryTable1Valor2: TFloatField
      FieldName = 'Valor2'
    end
    object MemoryTable1Fraccao: TStringField
      FieldName = 'Fraccao'
      Size = 15
    end
    object MemoryTable1Piso: TStringField
      FieldName = 'Piso'
      Size = 15
    end
    object MemoryTable1Porta: TStringField
      FieldName = 'Porta'
      Size = 10
    end
    object MemoryTable1Cdigo: TIntegerField
      FieldName = 'Codigo'
    end
    object MemoryTable1Contribuinte: TStringField
      FieldName = 'Contribuinte'
      Size = 12
    end
    object MemoryTable1TipoDocumento: TStringField
      FieldName = 'Tipo Documento'
    end
    object MemoryTable1Permilagem: TStringField
      FieldName = 'Permilagem'
      Size = 8
    end
    object MemoryTable1DataLimite: TDateTimeField
      FieldName = 'Data Limite'
    end
    object MemoryTable1TipoPagamento: TStringField
      FieldName = 'Tipo Pagamento'
      Size = 15
    end
    object MemoryTable1Honorrios: TFloatField
      FieldName = 'Honorarios'
    end
    object MemoryTable1Relao: TIntegerField
      FieldName = 'Relacao'
    end
    object MemoryTable1Anulado: TBooleanField
      FieldName = 'Anulado'
    end
    object MemoryTable1Liquidado: TBooleanField
      FieldName = 'Liquidado'
    end
    object MemoryTable1rea: TFloatField
      FieldName = 'Area'
    end
    object MemoryTable1Original: TBooleanField
      FieldName = 'Original'
    end
    object MemoryTable1LancaGas: TBooleanField
      FieldName = 'LancaGas'
    end
    object MemoryTable1LeituraAnterior: TFloatField
      FieldName = 'LeituraAnterior'
    end
    object MemoryTable1LeituraActual: TFloatField
      FieldName = 'LeituraActual'
    end
    object MemoryTable1Consumo: TFloatField
      FieldName = 'Consumo'
    end
    object MemoryTable1PrecoUnitarioGas: TFloatField
      FieldName = 'PrecoUnitarioGas'
    end
    object MemoryTable1ValorPagar: TFloatField
      FieldName = 'ValorPagar'
    end
    object MemoryTable1AluguerContador: TFloatField
      FieldName = 'AluguerContador'
    end
    object MemoryTable1TaxaServico: TFloatField
      FieldName = 'TaxaServico'
    end
    object MemoryTable1OutrosServicos: TFloatField
      FieldName = 'OutrosServicos'
    end
    object MemoryTable1Apartamento: TStringField
      FieldName = 'Apartamento'
      Size = 15
    end
    object MemoryTable1Saldo: TFloatField
      FieldName = 'Saldo'
    end
    object MemoryTable1Observacoes: TStringField
      FieldName = 'Observacoes'
    end
    object MemoryTable1Linhas: TStringField
      FieldName = 'Linhas'
    end
    object MemoryTable1PorLiquidar: TFloatField
      FieldName = 'PorLiquidar'
    end
    object MemoryTable1LancarRD: TBooleanField
      FieldName = 'LancarRD'
    end
    object MemoryTable1FolhaRD: TStringField
      FieldName = 'FolhaRD'
    end
    object MemoryTable1RubricaRD: TStringField
      FieldName = 'RubricaRD'
      Size = 25
    end
    object MemoryTable1ReferenciaRD: TStringField
      FieldName = 'ReferenciaRD'
      Size = 15
    end
    object MemoryTable1LancarBancos: TBooleanField
      FieldName = 'LancarBancos'
    end
    object MemoryTable1ContaBancos: TStringField
      FieldName = 'ContaBancos'
    end
    object MemoryTable1RubricaBancos: TStringField
      FieldName = 'RubricaBancos'
      Size = 25
    end
    object MemoryTable1ReferenciaBancos: TStringField
      FieldName = 'ReferenciaBancos'
      Size = 15
    end
    object MemoryTable1Bloco: TStringField
      FieldName = 'Bloco'
    end
    object MemoryTable1Topologia: TStringField
      FieldName = 'Topologia'
      Size = 10
    end
  end
  object MemoryTable2: TMemoryTable
    Left = 88
    Top = 8
    object MemoryTable2ID: TIntegerField
      FieldName = 'ID'
    end
    object MemoryTable2N: TIntegerField
      FieldName = 'N'
    end
    object MemoryTable2Data: TDateTimeField
      FieldName = 'Data'
    end
    object MemoryTable2Nome: TStringField
      FieldName = 'Nome'
      Size = 50
    end
    object MemoryTable2Referente: TStringField
      FieldName = 'Referente'
      Size = 50
    end
    object MemoryTable2Valor1: TFloatField
      FieldName = 'Valor1'
    end
    object MemoryTable2Valor2: TFloatField
      FieldName = 'Valor2'
    end
    object MemoryTable2Fraccao: TStringField
      FieldName = 'Fraccao'
      Size = 15
    end
    object MemoryTable2Piso: TStringField
      FieldName = 'Piso'
      Size = 15
    end
    object MemoryTable2Porta: TStringField
      FieldName = 'Porta'
      Size = 10
    end
    object MemoryTable2Cdigo: TIntegerField
      FieldName = 'Codigo'
    end
    object MemoryTable2Contribuinte: TStringField
      FieldName = 'Contribuinte'
      Size = 12
    end
    object MemoryTable2TipoDocumento: TStringField
      FieldName = 'Tipo Documento'
    end
    object MemoryTable2Permilagem: TStringField
      FieldName = 'Permilagem'
      Size = 8
    end
    object MemoryTable2DataLimite: TDateTimeField
      FieldName = 'Data Limite'
    end
    object MemoryTable2TipoPagamento: TStringField
      FieldName = 'Tipo Pagamento'
      Size = 15
    end
    object MemoryTable2Honorrios: TFloatField
      FieldName = 'Honorarios'
    end
    object MemoryTable2Relao: TIntegerField
      FieldName = 'Relacao'
    end
    object MemoryTable2Anulado: TBooleanField
      FieldName = 'Anulado'
    end
    object MemoryTable2Liquidado: TBooleanField
      FieldName = 'Liquidado'
    end
    object MemoryTable2rea: TFloatField
      FieldName = 'Area'
    end
    object MemoryTable2Original: TBooleanField
      FieldName = 'Original'
    end
    object MemoryTable2OutrosServicos: TFloatField
      FieldName = 'OutrosServicos'
    end
    object MemoryTable2TaxaServico: TFloatField
      FieldName = 'TaxaServico'
    end
    object MemoryTable2AluguerContador: TFloatField
      FieldName = 'AluguerContador'
    end
    object MemoryTable2ValorPagar: TFloatField
      FieldName = 'ValorPagar'
    end
    object MemoryTable2PrecoUnitarioGas: TFloatField
      FieldName = 'PrecoUnitarioGas'
    end
    object MemoryTable2Consumo: TFloatField
      FieldName = 'Consumo'
    end
    object MemoryTable2LeituraActual: TFloatField
      FieldName = 'LeituraActual'
    end
    object MemoryTable2LeituraAnterior: TFloatField
      FieldName = 'LeituraAnterior'
    end
    object MemoryTable2LancaGas: TBooleanField
      FieldName = 'LancaGas'
    end
    object MemoryTable2Apartamento: TStringField
      FieldName = 'Apartamento'
      Size = 15
    end
    object MemoryTable2Saldo: TFloatField
      FieldName = 'Saldo'
    end
    object MemoryTable2Observacoes: TStringField
      FieldName = 'Observacoes'
    end
    object MemoryTable2Linhas: TStringField
      FieldName = 'Linhas'
    end
    object MemoryTable2PorLiquidar: TFloatField
      FieldName = 'PorLiquidar'
    end
    object MemoryTable2LancarRD: TBooleanField
      FieldName = 'LancarRD'
    end
    object MemoryTable2FolhaRD: TStringField
      FieldName = 'FolhaRD'
    end
    object MemoryTable2RubricaRD: TStringField
      FieldName = 'RubricaRD'
      Size = 25
    end
    object MemoryTable2ReferenciaRD: TStringField
      FieldName = 'ReferenciaRD'
      Size = 15
    end
    object MemoryTable2LancarBancos: TBooleanField
      FieldName = 'LancarBancos'
    end
    object MemoryTable2ContaBancos: TStringField
      FieldName = 'ContaBancos'
    end
    object MemoryTable2RubricaBancos: TStringField
      FieldName = 'RubricaBancos'
      Size = 25
    end
    object MemoryTable2ReferenciaBancos: TStringField
      FieldName = 'ReferenciaBancos'
      Size = 15
    end
    object MemoryTable2Bloco: TStringField
      FieldName = 'Bloco'
    end
    object MemoryTable2Topologia: TStringField
      FieldName = 'Topologia'
      Size = 10
    end
  end
  object tAuxRecibos: TTable
    AfterPost = tAuxRecibosAfterPost
    DatabaseName = 'Database1'
    TableName = 'Recibos.DB'
    Left = 176
    Top = 8
  end
end